home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / DYN401.ZIP / class / loseq.d < prev    next >
Text File  |  1996-02-04  |  683b  |  56 lines
  1.  
  2. /*
  3.  *
  4.  *    Copyright (c) 1993-1996 Algorithms Corporation
  5.  *    3020 Liberty Hills Drive
  6.  *    Franklin, TN  37067
  7.  *
  8.  *    ALL RIGHTS RESERVED.
  9.  *
  10.  *
  11.  *
  12.  */
  13.  
  14.  
  15.  
  16. defclass  LinkObjectSequence : Sequence  {
  17.     iNext;
  18. };
  19.  
  20. cmeth    gNewWithObj, <vNew> (link)
  21. {
  22.     object    los;
  23.     ivType    *iv;
  24.  
  25.     ChkArgNul(link, 2);
  26.     los = gNew(super);
  27.     iv = ivPtr(los);
  28.     iNext = link;
  29.     return los;
  30. }
  31.  
  32. imeth    gNext()
  33. {
  34.     object    n;
  35.     if (n = iNext)  {
  36.         iNext = gNext(iNext);
  37.         return gValue(n);
  38.     }
  39.     return gDispose(self);
  40. }
  41.  
  42.  
  43.  
  44. /*
  45.  *
  46.  *    Copyright (c) 1993-1996 Algorithms Corporation
  47.  *    3020 Liberty Hills Drive
  48.  *    Franklin, TN  37067
  49.  *
  50.  *    ALL RIGHTS RESERVED.
  51.  *
  52.  *
  53.  *
  54.  */
  55.  
  56.